<html><head><title>Clipboard.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Clipboard example file
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<font color="#3A3966">; Paste text to the clipboard..
</font><font color="#3A3966">SetClipboardText</font>(&quot;PureBasic pasted text example.&quot;)

<font color="#3A3966">; Display the contents of the clipboard...
</font><font color="#3A3966">MessageRequester</font>(&quot;Info&quot;, &quot;Text in the clipboard&quot;+<font color="#924B72">#LF$</font>+&quot;'&quot;+<font color="#3A3966">GetClipboardText</font>()+&quot;'&quot;, 0)

<font color="#3A3966">; Now paste an image...
</font>
<b><font color="#3A3966">If</font></b> <font color="#3A3966">LoadImage</font>(0,<font color="#3A3966"> OpenFileRequester</font>(&quot;Load a picture&quot;,&quot;&quot;,&quot;Bitmap (*.bmp)|*.bmp&quot;,0))
  <b><font color="#3A3966">If</font></b> <font color="#3A3966">SetClipboardImage</font>(0)

<font color="#3A3966">    MessageRequester</font>(&quot;Info&quot;, &quot;Image correctly pasted to the clipboard.&quot;+<font color="#3A3966">Chr</font>(10)+&quot;Open 'Paint' to test it !&quot;, 0)
  <b><font color="#3A3966">EndIf</font></b>
<b><font color="#3A3966">EndIf</font></b></font></pre>
</body></html>
